%% xyps-l.tex from $Id: xyps-l.doc,v 2.9 1994/06/09 14:38:56 ross Exp $
%%
%% XY-pic ``Line extension'' PostScript backend support.
%% Copyright (c) 1993-1994 Ross Moore <ross@mpce.mq.edu.au>
%%
%% This file is part of the XY-pic package for graphs and diagrams in TeX.
%% See the companion README and INSTALL files for further information.
%% Copyright (c) 1991-1994 Kristoffer H. Rose <kris@diku.dk>
%%
%% The XY-pic package is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by the
%% Free Software Foundation; either version 2 of the License, or (at your
%% option) any later version.
%%
%% The XY-pic package is distributed in the hope that it will be useful, but
%% WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
%% or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
%% for more details.
%%
%% You should have received a copy of the GNU General Public License along
%% with this package; if not, write to the Free Software Foundation, Inc.,
%% 675 Mass Ave, Cambridge, MA 02139, USA.
%%
\ifx\xypslloaded\relax \message{not reloaded}\endinput \fi
\let\xypslloaded=\relax \xycatcodes
\xyrequire{line}
\xyrequire{ps}
\xycatcodes
\xydef@\xyPSprestyle@{\xyPSrawA@{\preXYstyle@@}}
\xydef@\xyPSpoststyle@{\xyPSrawZ@{\postXYstyle@@}}
\xyPSalternative@{\preXYstyle@}{prestyle}
\xyPSalternative@{\postXYstyle@}{poststyle}
\xydef@\xyPSlinewidth@{%
 \edef\tmp@{\expandafter\removePT@\the\xylinethick@}%
 \expandafter\xyPSlinewidth@@\expandafter{\tmp@}}
\xydef@\xyPSlinewidth@@#1{\bgroup
 \def\preStyle@@{\xyPSpre@}\def\postStyle@@{\xyPSpost@}%
 \let\modPSboxz@=\modXYstyle@ 
 \xyPSsplitPS@{#1 setlinewidth /xywidth{#1 setlinewidth}def }{}%
 \toks@={\egroup\let\xy@style@=\relax \def\Drop@@}%
 \expandafter\addtotoks@\expandafter{\expandafter{\Drop@@}\def\Connect@@}%
 \expandafter\addtotoks@\expandafter{\expandafter{\Connect@@}}\the\toks@}
\xyPSalternative@{\xylinewidth@}{linewidth}
\xyendinput
